home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / create6r / frmabout.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-10  |  4.8 KB  |  155 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    AutoRedraw      =   -1  'True
  4.    BackColor       =   &H00FFFFFF&
  5.    BorderStyle     =   3  'Fixed Dialog
  6.    Caption         =   "About Harvey Chess"
  7.    ClientHeight    =   3195
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   4470
  11.    ClipControls    =   0   'False
  12.    Icon            =   "frmAbout.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   213
  17.    ScaleMode       =   3  'Pixel
  18.    ScaleWidth      =   298
  19.    ShowInTaskbar   =   0   'False
  20.    StartUpPosition =   1  'CenterOwner
  21.    Tag             =   "About Project1"
  22.    Begin VB.CommandButton command1 
  23.       Cancel          =   -1  'True
  24.       Caption         =   "OK"
  25.       Default         =   -1  'True
  26.       Height          =   345
  27.       Left            =   1560
  28.       TabIndex        =   0
  29.       Tag             =   "OK"
  30.       Top             =   2400
  31.       Width           =   1260
  32.    End
  33.    Begin VB.Label Label1 
  34.       BackStyle       =   0  'Transparent
  35.       Caption         =   "Credit to : Carl Harvey elterrorista@videotron.ca"
  36.       BeginProperty Font 
  37.          Name            =   "MS Sans Serif"
  38.          Size            =   13.5
  39.          Charset         =   0
  40.          Weight          =   700
  41.          Underline       =   0   'False
  42.          Italic          =   0   'False
  43.          Strikethrough   =   0   'False
  44.       EndProperty
  45.       Height          =   855
  46.       Left            =   240
  47.       TabIndex        =   4
  48.       Top             =   720
  49.       Width           =   3615
  50.    End
  51.    Begin VB.Label lblTitle 
  52.       BackStyle       =   0  'Transparent
  53.       Caption         =   "Harvey Chess"
  54.       BeginProperty Font 
  55.          Name            =   "Lucida Sans Unicode"
  56.          Size            =   15.75
  57.          Charset         =   0
  58.          Weight          =   700
  59.          Underline       =   0   'False
  60.          Italic          =   0   'False
  61.          Strikethrough   =   0   'False
  62.       EndProperty
  63.       ForeColor       =   &H00000000&
  64.       Height          =   360
  65.       Index           =   1
  66.       Left            =   750
  67.       TabIndex        =   3
  68.       Tag             =   "Application Title"
  69.       Top             =   150
  70.       Width           =   2325
  71.    End
  72.    Begin VB.Label lblTitle 
  73.       BackStyle       =   0  'Transparent
  74.       Caption         =   "Harvey Chess"
  75.       BeginProperty Font 
  76.          Name            =   "Lucida Sans Unicode"
  77.          Size            =   15.75
  78.          Charset         =   0
  79.          Weight          =   700
  80.          Underline       =   0   'False
  81.          Italic          =   0   'False
  82.          Strikethrough   =   0   'False
  83.       EndProperty
  84.       ForeColor       =   &H00808080&
  85.       Height          =   360
  86.       Index           =   0
  87.       Left            =   720
  88.       TabIndex        =   2
  89.       Tag             =   "Application Title"
  90.       Top             =   120
  91.       Width           =   2325
  92.    End
  93.    Begin VB.Line Line1 
  94.       BorderColor     =   &H00808080&
  95.       BorderStyle     =   6  'Inside Solid
  96.       Index           =   1
  97.       X1              =   16
  98.       X2              =   241
  99.       Y1              =   128
  100.       Y2              =   128
  101.    End
  102.    Begin VB.Line Line1 
  103.       BorderColor     =   &H00FFFFFF&
  104.       BorderWidth     =   2
  105.       Index           =   0
  106.       X1              =   16
  107.       X2              =   240
  108.       Y1              =   136
  109.       Y2              =   136
  110.    End
  111.    Begin VB.Label lblVersion 
  112.       BackStyle       =   0  'Transparent
  113.       Caption         =   "Version 1.0"
  114.       BeginProperty Font 
  115.          Name            =   "MS Sans Serif"
  116.          Size            =   8.25
  117.          Charset         =   0
  118.          Weight          =   700
  119.          Underline       =   0   'False
  120.          Italic          =   0   'False
  121.          Strikethrough   =   0   'False
  122.       EndProperty
  123.       Height          =   225
  124.       Left            =   240
  125.       TabIndex        =   1
  126.       Tag             =   "Version"
  127.       Top             =   1680
  128.       Width           =   1125
  129.    End
  130. Attribute VB_Name = "frmAbout"
  131. Attribute VB_GlobalNameSpace = False
  132. Attribute VB_Creatable = False
  133. Attribute VB_PredeclaredId = True
  134. Attribute VB_Exposed = False
  135. ' Reg Key Security Options...
  136. Private Sub Command1_Click()
  137. Unload Me
  138. End Sub
  139. Private Sub Form_Load()
  140. OutSquare 0, 0, ScaleWidth - 1, ScaleHeight, Me
  141. InSquare Command1.Left, Command1.Top, Command1.Width - 1, Command1.Height, Me
  142. InSquare 24, 16, frmChess.Image2.Width - 1, frmChess.Image2.Height, Me
  143. Dim c, l
  144. c = 10: l = 10
  145. For i = 1 To 3
  146.  For i2 = 1 To 12
  147.   PaintPicture frmChess.Image2.Picture, c, l
  148.    c = c + 20
  149.  Next i2
  150. c = 10
  151. l = l + 22
  152. Next i
  153. Left = frmChess.Left + ((frmChess.Width - Width) / 2)
  154. End Sub
  155.